home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / topupv31.zip / WHO17_2X.BAS < prev   
BASIC Source File  |  1989-07-29  |  3KB  |  76 lines
  1.  Alabama Connection RBBS   Upload / download Mod. (RBBS 17.2x)
  2.  
  3.     by: Mike Clark
  4.     Rt.1 Box 250
  5.     Dothan, Alabama 36301
  6.  
  7. TO INSTALL:
  8.  
  9.  Change line 20709 in RBBSSUB3, and 21773 in RBBSSUB5 as listed below.
  10.  
  11. '*********************************
  12. ' UPLOAD.WHO MOD FOR RBBS 17.2 
  13. '
  14. ' LINE CHANGES FOR RBBSSUB3.BAS
  15. '*********************************
  16.  
  17. 20709 CALL QTPUT1 ("Upload successful")
  18.       X$ = DATE$
  19.       Z$ = LEFT$(X$,6) + _
  20.        RIGHT$(X$,2)
  21.       STREW.TO$ = ""
  22.       UCAT$ = ""
  23.       CLOSE #2                                  'Bama Connx 061089
  24.       OPEN "UPLOAD.WHO" FOR APPEND AS #2        'Bama Connx 061089
  25.       WRITE #2,FILE.NAME.HOLD$, BYTES.IN.FILE#, ACTIVE.USER.NAME$,X$,TIME$
  26.       CLOSE #2                                  'Bama Connx 061089
  27. 20710 CALL QTPUT1 ("Describe " + FILE.NAME.HOLD$ + _
  28.  
  29.  
  30. '*********************************
  31. ' DOWNLOAD.WHO MOD FOR RBBS 17.2 
  32. '
  33. ' LINE CHANGES FOR RBBSSUB5.BAS
  34. '*********************************
  35.  
  36. '
  37. ' * UPDATE DOWNLOAD STATISTICS
  38. '
  39. '  (formerly lines 50600 to 50614 in RBBS-PC.BAS CPC16-1A
  40. 21760 GOSUB 21780
  41.       IF FILESYS.PARAMETER > 1 THEN _
  42.      RETURN
  43.       IF BATCH.TRANSFER THEN _
  44.      CALL LINESNFIL (NODE.WORK.FILE$,DOWN.FILES) _
  45.       ELSE DOWN.FILES = 1
  46.       IF NOT DOWNLOAD.COMPLETED THEN _
  47.      AUTO.LOGOFF = FALSE : _
  48.      DF$ = " Aborted" _
  49.       ELSE CALL LOGDOWN (PERSONAL.DOWNLOAD,DWN.INDEX) : _
  50.        DOWNLOADS = DOWNLOADS + DOWN.FILES : _
  51.        GLOBAL.DL.TODAY! = GLOBAL.DL.TODAY! + DOWN.FILES : _
  52.        GLOBAL.DOWNLOADS = GLOBAL.DOWNLOADS + DOWN.FILES : _
  53.        DLBYTES! = DLBYTES! + NUM.DNLD.BYTS! : _
  54.        GLOBAL.DLBYTES! = GLOBAL.DLBYTES! + NUM.DNLD.BYTS! : _
  55.        DL.TODAY! = DL.TODAY! + DOWN.FILES : _
  56.        BYTES.TODAY! = BYTES.TODAY! + NUM.DNLD.BYTS! : _
  57.        GLOBAL.BYTES.TODAY! = GLOBAL.BYTES.TODAY! + NUM.DNLD.BYTS! : _ KG102004
  58.        NUM.DNLD.BYTS! = 0 : _
  59.        CALL MUZAK (6) : _
  60.        DF$ = " Downloaded" : _
  61.        IF (DWN.INDEX = LAST.DOWNLOAD OR NOT CONCAT.FILES) THEN _
  62.           CALL SKIPLINE (1) : _
  63.           CALL QTPUT1 ("Download successful") : _             'Bama Connx 072889
  64.       CLOSE #2 : _                                                'Bama Connx 072889
  65.       OPEN "DOWNLOAD.WHO" FOR APPEND AS #2 : _                    'Bama Connx 051789
  66.       CALL BRKFNAME (FILE.NAME$,DR$,X$,EXTENTION$,TRUE) : _       'Bama Connx 072889
  67.       X$ = X$ + EXTENTION$ : _                                    'Bama Connx 051789
  68.       WRITE #2,X$,BYTES.IN.FILE#,ACTIVE.USER.NAME$,DATE$,TIM$ : _ 'Bama Connx 051789
  69.       CLOSE #2                                                    'Bama Connx 051789
  70.       IF AUTODOWNLOAD.IN.PROGRESS THEN _
  71.      DF$ = " AUTO" + _
  72.           MID$(N$,2)
  73.       IF INSTR(N$,"Aborted") THEN _
  74.      AUTODOWNLOAD.IN.PROGRESS = 0
  75.       A$ = ""
  76.